home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
tex
/
webtp55.zip
/
ARRAYLIK.CHI
next >
Wrap
Text File
|
1989-11-29
|
237b
|
14 lines
@* array-like macros
@d mem[#]==LongInt(memp(#)^) {simulate TeX mem array}
@p
type
pLongInt = ^LongInt;
var
memseg: word;
Function memp (index: Word): pLongInt;
Begin
memp:= Ptr(memseg+index shr 2,index shl 2)
End;